; Music of Afterburner (1988) (Activision) (Jon Paul Eldridge)
; Ripped by Megachur the 07/01/2007

	write "AFTERBUR.BIN"

music_date_rip	equ &0717
music_adr	equ &d000
first_theme	equ 0
last_theme	equ 1

	read "music_header_v1_0.asm"

;org #d61d
;db "*** (C) 1988 DIGITAL HARMONICS - JON PAUL S ELDRIDGE ***"

;
.init_music
;
;	cp #00
;	jr z,ld082	; modified by Megachur
	push af
	call ld082
	pop af
;	dec a
	add a
	add a
	add a
	ld c,a
	ld b,#00
	ld iy,ld655
	add iy,bc
	ld a,(iy+#00)
	ld (ld0ea),a
	ld a,(iy+#01)
	ld (ld4ed),a
	ld l,(iy+#02)
	ld h,(iy+#03)
	ld ix,ld4f5
	call ld063
	ld l,(iy+#04)
	ld h,(iy+#05)
	ld ix,ld517
	call ld063
	ld l,(iy+#06)
	ld h,(iy+#07)
	ld ix,ld539
	call ld063
	ret
.ld063
	set 7,(ix+#1e)
	ld (ix+#08),l
	ld (ix+#09),h
	ld a,(hl)
	ld (ix+#04),a
	inc hl
	ld a,(hl)
	ld (ix+#05),a
	inc hl
	ld (ix+#06),l
	ld (ix+#07),h
	ld (ix+#03),#01
	ret
;
.stop_music
.ld082
;
	xor a
	ld ix,ld4f5
	ld (ix+#1e),a
	ld (ix+#40),a
	ld (ix+#62),a
	set 7,(ix+#1f)
	set 7,(ix+#41)
	set 7,(ix+#63)
	set 7,(ix+#20)
	set 7,(ix+#42)
	set 7,(ix+#64)
	ld bc,#f6c0
	out (c),c
	ld bc,#f407
	out (c),c
	ld bc,#f680
	out (c),c
	ld bc,#f43f
	out (c),c
	ld d,#08
	ld a,#03
.ld0c0
	ld bc,#f6c0
	out (c),c
	ld b,#f4
	out (c),d
	inc d
	ld bc,#f680
	out (c),c
	ld bc,#f400
	out (c),c
	dec a
	jr nz,ld0c0
	ld bc,#f600
	out (c),c
	ret
;
.real_play_music
.ld0dd
;
	push af
	push bc
	push de
	push hl
	push ix
	push iy
	ld a,(ld4ef)
	inc a
.ld0ea equ $ + 1
	cp #00
	jr nz,ld0ee
	xor a
.ld0ee
	ld (ld4ef),a
	jr nz,ld11d
	ld ix,ld4f5
	bit 7,(ix+#1e)
	call nz,ld137
	call ld126
	ld ix,ld517
	bit 7,(ix+#1e)
	call nz,ld137
	call ld126
	ld ix,ld539
	bit 7,(ix+#1e)
	call nz,ld137
	call ld126
.ld11d
	pop iy
	pop ix
	pop hl
	pop de
	pop bc
	pop af
	ret
.ld126
	bit 7,(ix+#1e)
	jr nz,ld131
	bit 7,(ix+#1f)
	ret nz
.ld131
	call ld380
	jp ld3fc
.ld137
	dec (ix+#03)
	ret nz
	xor a
	ld (ld4ee),a
.ld13f
	ld l,(ix+#04)
	ld h,(ix+#05)
	ld c,(hl)
	bit 7,c
	jr z,ld19d
	ld l,(ix+#06)
	ld h,(ix+#07)
.ld150
	inc hl
	inc hl
	ld (ix+#06),l
	ld (ix+#07),h
	dec hl
	ld a,(hl)
	dec hl
	cp #ff
	jr z,ld16a
	ld a,(hl)
	ld (ix+#04),a
	inc hl
	ld a,(hl)
	ld (ix+#05),a
	jr ld13f
.ld16a
	ld l,(ix+#08)
	ld (ix+#06),l
	ld h,(ix+#09)
	ld (ix+#07),h
	ld a,(ld4ed)
	bit 7,a
	jr nz,ld150
	res 7,(ix+#1e)
	ld bc,#f6c0
	out (c),c
	ld b,#f4
	ld c,(ix+#00)
	out (c),c
	ld bc,#f680
	out (c),c
	ld bc,#f400
	out (c),c
	ld b,#f6
	out (c),c
	pop af
	ret
.ld19d
	ld a,#66
	cp c
	jp z,ld23d
	ld a,#64
	cp c
	jp z,ld319
	bit 7,(ix+#1f)
	jr z,ld1b3
	inc a
	cp c
	jr nz,ld1de
.ld1b3
	inc hl
	ld c,(hl)
	ld (ix+#03),c
	inc hl
	ld (ix+#04),l
	ld (ix+#05),h
	ret
.ld1c0
	inc hl
	ld a,(hl)
	ld (ix+#20),a
	inc hl
	ld (ix+#04),l
	ld (ix+#05),h
	jp ld13f
.ld1cf
	inc hl
	ld a,(hl)
	ld (ix+#21),a
	inc hl
	ld (ix+#04),l
	ld (ix+#05),h
	jp ld13f
.ld1de
	bit 6,(ix+#1e)
	call nz,ld287
	rlc c
	ld b,#00
	ld iy,ld55b
	add iy,bc
	ld e,(iy+#00)
	ld (ix+#14),e
	ld d,(iy+#01)
	ld (ix+#15),d
	call ld428
	inc hl
	ld c,(hl)
	ld (ix+#03),c
	inc hl
	ld (ix+#04),l
	ld (ix+#05),h
	ld a,(ld4ee)
	cp #01
	ret z
.ld210
	ld a,#01
	ld (ix+#0b),a
	ld (ix+#0d),a
	ld (ix+#0e),a
	ld l,(ix+#11)
	ld h,(ix+#12)
	ld (ix+#0f),l
	ld (ix+#10),h
	ld a,(ix+#13)
	ld (ix+#0a),a
	ld l,(ix+#1a)
	ld h,(ix+#1b)
	ld (ix+#1c),l
	ld (ix+#1d),h
	ld a,(hl)
	jp ld46e
.ld23d
	bit 7,(ix+#1f)
	jp z,ld1cf
	inc hl
	ld a,(hl)
	ld bc,#f6c0
	out (c),c
	ld bc,#f406
	out (c),c
	ld (ix+#21),a
	ld bc,#f680
	out (c),c
	ld b,#f4
	out (c),a
	inc hl
	ld (ix+#04),l
	ld (ix+#05),h
	ld d,#38
	cp #00
	jr z,ld26c
	ld d,(ix+#02)
.ld26c
	ld bc,#f6c0
	out (c),c
	ld bc,#f407
	out (c),c
	ld bc,#f680
	out (c),c
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	jp ld13f
.ld287
	res 6,(ix+#1e)
	ld e,(ix+#20)
	ld a,(ix+#21)
.ld291
	push bc
	push hl
	ld bc,#f6c0
	out (c),c
	ld bc,#f406
	out (c),c
	ld bc,#f680
	out (c),c
	ld b,#f4
	out (c),a
	ld d,#38
	cp #00
	jr z,ld2af
	ld d,(ix+#02)
.ld2af
	ld bc,#f6c0
	out (c),c
	ld bc,#f407
	out (c),c
	ld bc,#f680
	out (c),c
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ld b,#00
	ld c,e
	sla c
	sla c
	rl b
	ld iy,le2b5
	add iy,bc
	ld l,(iy+#00)
	ld h,(iy+#01)
	ld a,(hl)
	ld (ix+#0a),a
	ld (ix+#13),a
	inc hl
	ld (ix+#0f),l
	ld (ix+#10),h
	ld (ix+#11),l
	ld (ix+#12),h
	ld l,(iy+#02)
	ld h,(iy+#03)
	ld (ix+#1a),l
	ld (ix+#1b),h
	ld (ix+#1c),l
	ld (ix+#1d),h
	ld a,#01
	ld (ix+#0b),a
	ld (ix+#0d),a
	ld (ix+#0e),a
	ld (ix+#16),a
	ld (ix+#18),a
	ld (ix+#19),a
	pop hl
	pop bc
	ret
.ld319
	bit 7,(ix+#1f)
	jp z,ld1c0
	inc hl
	ld b,#00
	ld c,(hl)
	ld (ix+#20),c
	sla c
	sla c
	rl b
	inc hl
	ld (ix+#04),l
	ld (ix+#05),h
	ld iy,le2b5
	add iy,bc
	ld l,(iy+#00)
	ld h,(iy+#01)
	ld a,(hl)
	ld (ix+#0a),a
	ld (ix+#13),a
	inc hl
	ld (ix+#0f),l
	ld (ix+#10),h
	ld (ix+#11),l
	ld (ix+#12),h
	ld l,(iy+#02)
	ld h,(iy+#03)
	ld (ix+#1a),l
	ld (ix+#1b),h
	ld (ix+#1c),l
	ld (ix+#1d),h
	ld a,#01
	ld (ix+#0b),a
	ld (ix+#0d),a
	ld (ix+#0e),a
	ld (ix+#16),a
	ld (ix+#18),a
	ld (ix+#19),a
	ld (ld4ee),a
	jp ld13f
.ld380
	bit 7,(ix+#0e)
	ret nz
	dec (ix+#0e)
	ret nz
	ld a,(ix+#0d)
	ld (ix+#0e),a
	ld a,(ix+#0a)
	ld bc,#f6c0
	out (c),c
	ld b,#f4
	ld c,(ix+#00)
	out (c),c
	ld bc,#f680
	out (c),c
	ld b,#f4
	out (c),a
	ld bc,#f600
	out (c),c
	add (ix+#0c)
	ld (ix+#0a),a
	dec (ix+#0b)
	ret nz
	ld l,(ix+#0f)
	ld h,(ix+#10)
	ld a,(hl)
	bit 7,a
	jr z,ld3e3
	bit 0,a
	jp nz,ld210
	set 7,(ix+#0e)
	set 7,(ix+#1f)
	bit 6,(ix+#1e)
	jr nz,ld3de
	bit 7,(ix+#1f)
	ret nz
	set 7,(ix+#1f)
	ret
.ld3de
	set 7,(ix+#1e)
	ret
.ld3e3
	inc a
	ld (ix+#0b),a
	inc hl
	ld a,(hl)
	ld (ix+#0c),a
	inc hl
	ld a,(hl)
	ld (ix+#0d),a
	ld (ix+#0e),a
	inc hl
	ld (ix+#0f),l
	ld (ix+#10),h
	ret
.ld3fc
	bit 7,(ix+#19)
	ret nz
	dec (ix+#19)
	ret nz
	ld a,(ix+#18)
	ld (ix+#19),a
	dec (ix+#16)
	jr z,ld456
	ld l,(ix+#14)
	ld h,(ix+#15)
	ld b,#00
	ld c,(ix+#17)
	bit 7,c
	jr z,ld420
	dec b
.ld420
	add hl,bc
	ld (ix+#14),l
	ld (ix+#15),h
	ex de,hl
.ld428
	ld bc,#f6c0
	out (c),c
	ld b,#f4
	ld a,(ix+#01)
	out (c),a
	ld bc,#f680
	out (c),c
	ld b,#f4
	out (c),e
	ld bc,#f6c0
	out (c),c
	ld b,#f4
	inc a
	out (c),a
	ld bc,#f680
	out (c),c
	ld b,#f4
	out (c),d
	ld bc,#f600
	out (c),c
	ret
.ld456
	ld l,(ix+#1c)
	ld h,(ix+#1d)
	ld a,(hl)
	bit 7,a
	jr z,ld46e
	ld l,(ix+#1a)
	ld h,(ix+#1b)
	ld (ix+#1c),l
	ld (ix+#1d),h
	ld a,(hl)
.ld46e
	inc a
	ld (ix+#16),a
	inc hl
	ld a,(hl)
	ld (ix+#17),a
	inc hl
	ld a,(hl)
	ld (ix+#18),a
	ld (ix+#19),a
	inc hl
	ld (ix+#1c),l
	ld (ix+#1d),h
	ret
;
;.sound_fx ?
;
	cp #00
	jp z,ld082
	dec a
	add a
	add a
	ld b,#00
	ld c,a
	ld iy,le3dc
	add iy,bc
.ld498
	ld hl,ld4f2
	ld b,#00
	ld c,(iy+#03)
	res 7,c
	add hl,bc
	ld c,(hl)
	ld ix,ld4f5
	add ix,bc
	bit 7,(ix+#1e)
	jr z,ld4b4
	set 6,(ix+#1e)
.ld4b4
	ld (ix+#1f),b
	ld e,(iy+#02)
	ld a,(iy+#00)
	ld c,(iy+#01)
	rlc c
	push iy
	call ld291
	ld iy,ld55b
	add iy,bc
	ld e,(iy+#00)
	ld (ix+#14),e
	ld d,(iy+#01)
	ld (ix+#15),d
	call ld428
	pop iy
	bit 7,(iy+#03)
	ret z
	inc iy
	inc iy
	inc iy
	inc iy
	jr ld498
.ld4f2 equ $ + 5
.ld4f0 equ $ + 3
.ld4ef equ $ + 2
.ld4ee equ $ + 1
.ld4ed
	db #00,#00,#00,#00,#00,#00,#22,#44
.ld4f5
	db #08,#00,#30,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00
.ld517
	db #09,#02,#28,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00
.ld539
	db #0a,#04,#18,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00
.ld55b
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw #0000
	db #2a,#2a,#2a,#20,#28,#43,#29,#20
	db #31,#39,#38,#38,#20,#44,#49,#47
	db #49,#54,#41,#4c,#20,#48,#41,#52
	db #4d,#4f,#4e,#49,#43,#53,#20,#2d
	db #20,#4a,#4f,#4e,#20,#50,#41,#55
	db #4c,#20,#53,#20,#45,#4c,#44,#52
	db #49,#44,#47,#45,#20,#2a,#2a,#2a
.ld655
	db #04,#ff
	dw ld665,ld669,ld66d
;	db #12,#ff modified by Megachur
	db #12,#ff
	dw lde44,lde52,lde5e
.ld665
	dw ldcd1,#ffff
.ld669
	dw ld6d5,#ffff
.ld66d
	dw ldacc,ldb3d,ldba5,ldb3d
	dw ldb3d,ldba5,ldb3d,ldb3d
	dw ldb3d,ldb3d,ldba5,ldb3d
	dw ldb3d,ldc31,ldc3d,ldb3d
	dw ldb3d,ldba5,ldb3d,ldb3d
	dw ldb3d,ldc31,ldb3d,ldb3d
	dw ldb3d,ldb3d,ldc31,ldb3d
	dw ldb3d,ldb3d,ldb3d,ldc31
	dw ldc52,ldc67,ldc67,ldc67
	dw ldc67,ldc9d,ldb3d,ldb3d
	dw ldb3d,ldb3d,ldb3d,ldb3d
	dw ldba5,ldb3d,ldb3d,ldb3d
	dw ldba5,ldba5,ldcb0,#ffff
.ld6d5
	db #64,#00,#66,#00,#65,#40,#64,#01
	db #18,#08,#1b,#08,#1d,#08,#1f,#08
	db #1d,#08,#1b,#08,#11,#20,#11,#10
	db #1d,#08,#11,#08,#65,#08,#11,#08
	db #11,#30,#1b,#08,#1d,#08,#65,#08
	db #1d,#08,#11,#08,#65,#08,#1d,#08
	db #11,#08,#65,#08,#11,#08,#11,#18
	db #11,#08,#65,#10,#18,#08,#1b,#08
	db #11,#10,#11,#10,#1d,#08,#11,#08
	db #65,#08,#11,#08,#11,#18,#1d,#08
	db #65,#10,#1b,#08,#1d,#08,#65,#08
	db #1d,#08,#11,#08,#65,#08,#1d,#08
	db #11,#08,#65,#08,#11,#08,#18,#08
	db #1b,#08,#1d,#08,#1f,#08,#1d,#08
	db #1b,#08,#18,#10,#11,#10,#11,#10
	db #1d,#08,#11,#08,#65,#08,#11,#08
	db #11,#30,#1c,#08,#1d,#08,#65,#08
	db #1d,#08,#11,#08,#65,#08,#1d,#08
	db #11,#08,#65,#08,#11,#08,#65,#20
	db #65,#10,#1d,#10,#11,#10,#11,#10
	db #1d,#08,#11,#08,#65,#08,#11,#08
	db #11,#30,#1c,#08,#1d,#08,#11,#18
	db #1d,#08,#0f,#10,#1b,#10,#10,#10
	db #1c,#10,#11,#10,#1d,#10,#11,#10
	db #11,#10,#1d,#08,#11,#08,#65,#08
	db #11,#08,#11,#30,#1b,#08,#1d,#08
	db #65,#08,#1d,#08,#11,#08,#65,#08
	db #1d,#08,#11,#08,#65,#08,#11,#08
	db #11,#18,#11,#08,#65,#10,#18,#08
	db #1b,#08,#11,#10,#11,#10,#1d,#08
	db #11,#08,#65,#08,#11,#08,#11,#18
	db #1d,#08,#65,#10,#1c,#08,#1d,#08
	db #65,#08,#1d,#08,#11,#08,#65,#08
	db #1d,#08,#11,#08,#65,#08,#11,#08
	db #18,#08,#1b,#08,#1d,#08,#1f,#08
	db #1d,#08,#1b,#08,#18,#10,#11,#10
	db #11,#10,#1d,#08,#11,#08,#65,#08
	db #11,#08,#11,#30,#1c,#08,#1d,#08
	db #65,#08,#1d,#08,#11,#08,#65,#08
	db #1d,#08,#11,#08,#65,#08,#11,#08
	db #65,#20,#65,#10,#1d,#10,#11,#10
	db #11,#10,#1d,#08,#11,#08,#65,#08
	db #11,#08,#11,#30,#1c,#08,#1d,#08
	db #11,#18,#1d,#08,#0f,#10,#1b,#10
	db #10,#10,#1c,#10,#11,#10,#1d,#10
	db #11,#10,#11,#10,#1d,#08,#11,#08
	db #65,#08,#11,#08,#11,#18,#11,#08
	db #65,#10,#1c,#08,#1d,#08,#11,#10
	db #11,#10,#1c,#08,#11,#08,#65,#08
	db #11,#08,#11,#30,#65,#10,#11,#10
	db #11,#10,#1f,#08,#13,#08,#65,#08
	db #13,#08,#13,#18,#13,#08,#65,#10
	db #17,#10,#65,#10,#23,#10,#65,#10
	db #17,#08,#65,#08,#18,#10,#24,#10
	db #65,#20,#11,#10,#11,#10,#1d,#08
	db #11,#08,#65,#08,#11,#08,#11,#18
	db #11,#08,#65,#10,#1c,#08,#1d,#08
	db #10,#10,#10,#10,#1c,#08,#10,#08
	db #65,#08,#10,#08,#10,#30,#65,#10
	db #13,#10,#13,#10,#1f,#08,#13,#08
	db #65,#08,#13,#08,#13,#18,#13,#08
	db #65,#10,#17,#10,#17,#10,#23,#10
	db #65,#10,#17,#08,#65,#08,#18,#10
	db #24,#10,#23,#08,#24,#18,#10,#30
	db #10,#10,#1c,#10,#10,#10,#65,#10
	db #17,#10,#65,#10,#23,#10,#65,#10
	db #17,#10,#65,#20,#65,#10,#11,#10
	db #65,#10,#11,#10,#11,#10,#11,#10
	db #11,#10,#11,#10,#11,#10,#11,#10
	db #11,#10,#11,#10,#11,#10,#11,#10
	db #1b,#10,#1c,#10,#1b,#10,#17,#10
	db #10,#30,#10,#10,#1c,#10,#10,#10
	db #65,#10,#17,#10,#65,#10,#23,#10
	db #65,#10,#17,#10,#65,#20,#65,#10
	db #11,#10,#65,#10,#11,#10,#11,#10
	db #11,#10,#11,#10,#11,#10,#11,#10
	db #11,#10,#11,#10,#11,#10,#11,#10
	db #11,#10,#11,#10,#11,#10,#11,#10
	db #11,#10,#11,#10,#1d,#10,#11,#10
	db #11,#10,#11,#0b,#11,#0b,#11,#0a
	db #11,#0b,#11,#0b,#11,#0a,#11,#40
	db #10,#20,#0f,#20,#11,#10,#1d,#08
	db #65,#08,#11,#10,#1d,#08,#65,#08
	db #11,#10,#1d,#08,#65,#08,#11,#10
	db #11,#10,#65,#10,#1d,#08,#65,#08
	db #0f,#10,#1b,#08,#65,#08,#10,#10
	db #1c,#08,#65,#08,#0f,#10,#1b,#08
	db #65,#08,#11,#10,#1d,#08,#65,#08
	db #11,#10,#1d,#08,#65,#08,#11,#10
	db #1d,#08,#65,#08,#11,#10,#11,#10
	db #65,#10,#1d,#08,#65,#08,#0f,#10
	db #1b,#08,#65,#08,#10,#10,#1c,#08
	db #65,#08,#0f,#10,#1b,#08,#65,#08
	db #11,#10,#1d,#08,#65,#08,#11,#10
	db #1d,#08,#65,#08,#11,#10,#1d,#08
	db #65,#08,#11,#10,#11,#10,#65,#10
	db #1d,#08,#65,#08,#0f,#10,#1b,#08
	db #65,#08,#10,#10,#1c,#08,#65,#08
	db #0f,#10,#1b,#08,#65,#08,#11,#10
	db #1d,#08,#65,#08,#11,#10,#1d,#08
	db #65,#08,#11,#10,#1d,#08,#65,#08
	db #11,#10,#11,#10,#65,#10,#1d,#08
	db #65,#08,#0f,#10,#1b,#08,#65,#08
	db #10,#10,#1c,#08,#65,#08,#0f,#10
	db #1b,#08,#65,#08,#0e,#10,#0e,#10
	db #0e,#10,#11,#20,#1d,#10,#65,#10
	db #10,#10,#10,#10,#15,#10,#13,#10
	db #11,#20,#1d,#10,#10,#10,#0c,#10
	db #0e,#10,#0e,#10,#0e,#10,#10,#20
	db #10,#10,#15,#10,#11,#10,#65,#10
	db #11,#10,#1c,#08,#1d,#08,#65,#10
	db #24,#10,#23,#10,#1c,#10,#0e,#10
	db #0e,#10,#0e,#10,#10,#20,#1c,#10
	db #10,#10,#10,#10,#10,#10,#15,#10
	db #13,#10,#11,#20,#1d,#10,#10,#10
	db #0c,#10,#0e,#10,#0e,#10,#0e,#10
	db #10,#20,#10,#10,#15,#10,#11,#10
	db #65,#10,#11,#10,#1c,#08,#1d,#08
	db #11,#10,#11,#10,#11,#10,#11,#20
	db #0e,#30,#10,#10,#65,#40,#65,#60
	db #65,#10,#11,#10,#65,#10,#11,#10
	db #11,#10,#65,#10,#11,#18,#11,#08
	db #65,#10,#11,#10,#65,#20,#11,#08
	db #1d,#08,#11,#10,#11,#18,#11,#18
	db #65,#10,#10,#08,#11,#08,#65,#10
	db #11,#10,#11,#10,#65,#10,#11,#18
.ldacc equ $ + 7
	db #11,#08,#65,#10,#11,#10,#ff,#64
	db #03,#66,#08,#60,#08,#66,#01,#60
	db #08,#66,#08,#60,#08,#66,#01,#60
	db #08,#66,#08,#60,#08,#66,#01,#60
	db #08,#60,#08,#60,#08,#66,#08,#60
	db #08,#60,#08,#60,#08,#60,#08,#60
	db #08,#60,#08,#64,#05,#66,#03,#60
	db #40,#64,#03,#66,#09,#60,#08,#66
	db #05,#60,#08,#66,#08,#60,#08,#66
	db #04,#60,#08,#66,#07,#60,#08,#66
	db #03,#60,#08,#66,#06,#60,#08,#66
	db #02,#60,#08,#64,#05,#66,#03,#60
	db #10,#60,#30,#64,#03,#66,#05,#60
	db #10,#60,#10,#60,#10,#60,#10,#60
	db #08,#60,#08,#60,#08,#60,#08,#ff
.ldb3d
	db #64,#03,#66,#06,#60,#08,#66,#01
	db #60,#08,#64,#04,#66,#02,#60,#10
	db #64,#03,#66,#06,#60,#08,#66,#01
	db #60,#08,#66,#06,#60,#08,#66,#01
	db #60,#08,#64,#03,#66,#06,#60,#08
	db #66,#01,#60,#08,#64,#04,#66,#02
	db #60,#10,#64,#03,#66,#06,#60,#08
	db #66,#01,#60,#08,#66,#06,#60,#08
	db #66,#01,#60,#08,#ff,#64,#03,#66
	db #06,#60,#08,#66,#01,#60,#08,#66
	db #06,#60,#08,#66,#01,#60,#08,#66
	db #04,#64,#04,#60,#10,#64,#03,#66
	db #06,#60,#08,#66,#01,#60,#08,#ff
.ldba5
	db #64,#03,#66,#06,#60,#08,#66,#01
	db #60,#08,#66,#06,#60,#08,#66,#01
	db #60,#08,#66,#04,#64,#04,#60,#10
	db #64,#03,#66,#06,#60,#08,#66,#01
	db #60,#08,#64,#03,#66,#06,#60,#08
	db #66,#01,#60,#08,#66,#06,#60,#08
	db #66,#01,#60,#08,#66,#04,#64,#04
	db #60,#08,#66,#06,#60,#08,#66,#08
	db #60,#08,#66,#0a,#60,#08,#ff,#64
	db #03,#66,#06,#60,#08,#66,#01,#60
	db #08,#66,#06,#60,#08,#66,#01,#60
	db #08,#66,#04,#64,#04,#60,#10,#64
	db #03,#66,#06,#60,#08,#66,#01,#60
	db #08,#66,#04,#64,#04,#60,#08,#66
	db #06,#60,#08,#66,#08,#60,#08,#66
	db #0a,#60,#08,#66,#06,#60,#08,#66
	db #04,#60,#08,#66,#02,#60,#08,#66
.ldc31 equ $ + 4
	db #01,#60,#08,#ff,#66,#04,#64,#04
	db #60,#10,#60,#10,#60,#10,#60,#10
.ldc3d
	db #66,#04,#64,#04,#60,#08,#60,#08
	db #60,#08,#60,#08,#60,#08,#60,#08
.ldc52 equ $ + 5
	db #60,#08,#60,#08,#ff,#66,#02,#64
	db #04,#60,#0b,#60,#0b,#60,#0a,#60
	db #0b,#60,#0b,#60,#0a,#64,#00,#60
.ldc67 equ $ + 2
	db #40,#ff,#64,#04,#66,#06,#60,#10
	db #66,#04,#60,#10,#66,#06,#60,#10
	db #66,#04,#60,#10,#64,#04,#66,#06
	db #60,#10,#66,#04,#60,#10,#66,#06
	db #60,#10,#66,#04,#60,#10,#64,#04
	db #66,#06,#60,#10,#66,#04,#60,#10
	db #66,#06,#60,#10,#66,#04,#60,#10
.ldc9d
	db #64,#04,#66,#06,#60,#10,#66,#04
	db #60,#10,#66,#06,#60,#10,#66,#04
.ldcb0 equ $ + 3
	db #60,#10,#ff,#64,#03,#66,#08,#60
	db #08,#60,#08,#60,#08,#60,#08,#60
	db #08,#60,#08,#60,#08,#60,#08,#60
	db #08,#60,#08,#60,#08,#60,#08,#60
.ldcd1 equ $ + 4
	db #08,#60,#08,#ff,#66,#00,#64,#00
	db #65,#80,#65,#80,#65,#80,#65,#80
	db #65,#80,#65,#80,#65,#80,#65,#80
	db #65,#80,#65,#80,#65,#80,#65,#80
	db #65,#80,#65,#80,#65,#80,#65,#f0
	db #64,#02,#31,#10,#65,#40,#65,#10
	db #32,#10,#34,#10,#31,#10,#65,#40
	db #65,#10,#32,#10,#34,#10,#31,#10
	db #65,#30,#32,#30,#2d,#10,#32,#10
	db #65,#20,#31,#10,#2d,#10,#65,#10
	db #2f,#20,#31,#10,#65,#40,#65,#10
	db #32,#10,#34,#10,#31,#10,#65,#40
	db #65,#10,#32,#10,#34,#10,#34,#10
	db #65,#20,#32,#10,#39,#10,#65,#20
	db #38,#10,#38,#10,#65,#10,#38,#10
	db #65,#10,#36,#20,#38,#20,#39,#10
	db #65,#80,#65,#30,#65,#10,#3b,#20
	db #3d,#10,#3b,#10,#65,#10,#39,#10
	db #65,#20,#65,#40,#65,#40,#65,#10
	db #31,#10,#34,#10,#39,#10,#65,#40
	db #65,#10,#31,#10,#34,#10,#39,#10
	db #65,#40,#3b,#20,#3d,#10,#3b,#10
	db #65,#10,#39,#10,#65,#20,#65,#40
	db #65,#80,#65,#80,#65,#10,#37,#10
	db #37,#10,#37,#10,#37,#18,#36,#08
	db #65,#10,#34,#10,#65,#80,#65,#10
	db #37,#10,#37,#10,#37,#10,#37,#18
	db #36,#08,#65,#10,#39,#10,#65,#80
	db #65,#10,#37,#10,#37,#10,#37,#10
	db #37,#18,#36,#08,#65,#10,#34,#10
	db #65,#80,#65,#10,#32,#20,#31,#10
	db #32,#20,#34,#10,#31,#10,#65,#10
	db #2d,#10,#65,#60,#65,#40,#65,#10
	db #2f,#10,#30,#08,#65,#08,#2d,#10
	db #34,#30,#32,#10,#65,#30,#2b,#10
	db #2b,#10,#30,#10,#2f,#10,#2d,#10
	db #65,#20,#65,#10,#2b,#08,#29,#08
	db #28,#30,#26,#10,#65,#10,#28,#10
	db #2b,#10,#2d,#10,#65,#40,#65,#10
	db #2f,#10,#30,#10,#2d,#10,#32,#20
	db #2d,#10,#34,#20,#2d,#20,#35,#10
	db #37,#10,#34,#10,#37,#10,#39,#20
	db #3b,#10,#3c,#10,#39,#10,#65,#10
	db #3c,#10,#40,#20,#3e,#20,#3c,#10
	db #39,#10,#65,#40,#65,#40,#40,#30
	db #3e,#10,#65,#40,#65,#40,#65,#40
	db #65,#80,#65,#80,#65,#80,#ff
.lde44
	dw lde82,lde99,lde99,ldec2
	dw ldedf,ldedf,#ffff
.lde52
	dw ldf7a,ldf7a,ldffd,le07e
	dw le169,#ffff
.lde5e
	dw le1a6,le1a6,le1a6,le1cb
	dw le208,le208,le208,le208
	dw le208,le223,le223,le223
	dw le223,le223,le223,le282
	dw le1dd,#ffff
.lde82
	db #66,#00,#64,#00,#00,#20,#00,#20
	db #00,#20,#00,#20,#00,#20,#00,#20
.lde99 equ $ + 7
	db #00,#20,#00,#20,#00,#20,#ff,#64
	db #06,#48,#04,#4c,#02,#47,#02,#65
	db #02,#4a,#04,#45,#02,#65,#02,#48
	db #04,#45,#02,#47,#04,#45,#02,#43
	db #02,#48,#04,#4c,#02,#47,#02,#65
	db #02,#4a,#04,#48,#02,#65,#10,#ff
.ldec2
	db #64,#07,#30,#20,#2f,#20,#2d,#1c
	db #37,#04,#39,#20,#30,#20,#2f,#20
	db #2d,#1c,#37,#04,#39,#20,#30,#20
.ldedf equ $ + 5
	db #2f,#20,#2d,#20,#ff,#64,#03,#48
	db #04,#4c,#02,#47,#02,#65,#02,#4a
	db #04,#45,#02,#65,#02,#48,#04,#45
	db #02,#47,#04,#45,#02,#43,#02,#48
	db #04,#4c,#02,#47,#02,#65,#02,#4a
	db #04,#48,#02,#65,#10,#48,#04,#4c
	db #02,#47,#02,#65,#02,#4a,#04,#45
	db #02,#65,#02,#48,#04,#45,#02,#47
	db #04,#45,#02,#43,#02,#48,#04,#4c
	db #02,#47,#02,#65,#02,#4a,#04,#48
	db #02,#65,#10,#4a,#04,#4d,#02,#48
	db #02,#65,#02,#4c,#04,#47,#02,#65
	db #02,#4a,#04,#45,#02,#48,#04,#47
	db #02,#45,#02,#4a,#04,#4d,#02,#48
	db #02,#65,#02,#4c,#04,#4a,#02,#65
	db #10,#4a,#04,#4d,#02,#48,#02,#65
	db #02,#4c,#04,#47,#02,#65,#02,#4a
	db #04,#45,#02,#48,#04,#47,#02,#45
	db #02,#4a,#04,#4d,#02,#48,#02,#65
	db #02,#4c,#04,#4a,#02,#65,#10,#ff
.ldf7a
	db #66,#00,#64,#06,#1d,#04,#1d,#02
	db #1d,#02,#29,#02,#1d,#04,#1d,#02
	db #1d,#04,#1d,#02,#1d,#02,#28,#02
	db #1d,#04,#1d,#02,#1d,#04,#1d,#02
	db #1d,#02,#29,#02,#1d,#04,#1d,#04
	db #29,#02,#1d,#02,#1d,#02,#24,#02
	db #1d,#02,#1c,#02,#1d,#02,#1d,#04
	db #1d,#02,#1d,#02,#29,#02,#1d,#04
	db #1d,#02,#1d,#04,#1d,#02,#1d,#02
	db #28,#02,#1d,#04,#1d,#02,#1d,#04
	db #1d,#02,#1d,#02,#28,#02,#29,#02
	db #1d,#02,#1d,#02,#32,#02,#28,#02
	db #1d,#02,#1d,#02,#30,#02,#32,#02
	db #28,#04,#1d,#04,#1d,#02,#1d,#02
	db #29,#02,#1d,#04,#1d,#02,#1d,#04
	db #1d,#02,#1d,#02,#28,#02,#1d,#04
.ldffd equ $ + 3
	db #1d,#02,#ff,#1d,#04,#1d,#02,#1d
	db #02,#29,#02,#1d,#04,#1d,#02,#1d
	db #04,#1d,#02,#1d,#02,#28,#02,#1d
	db #04,#1d,#02,#1d,#04,#1d,#02,#1d
	db #02,#29,#02,#1d,#04,#1d,#04,#29
	db #02,#1d,#02,#1d,#02,#24,#02,#1d
	db #02,#1c,#02,#1d,#02,#1d,#04,#1d
	db #02,#1d,#02,#29,#02,#1d,#04,#1d
	db #02,#1d,#04,#1d,#02,#1d,#02,#28
	db #02,#1d,#04,#1d,#02,#1d,#04,#1d
	db #02,#1d,#02,#28,#02,#29,#02,#1d
	db #02,#1d,#02,#32,#02,#28,#02,#1d
	db #02,#1d,#02,#30,#02,#32,#02,#1d
	db #04,#1d,#04,#1d,#02,#1d,#02,#29
	db #02,#1d,#04,#1d,#04,#29,#02,#1d
	db #02,#1d,#02,#24,#02,#1d,#02,#1c
.le07e equ $ + 4
	db #02,#1d,#02,#ff,#1d,#04,#1d,#02
	db #1d,#02,#29,#02,#1d,#04,#1d,#04
	db #29,#02,#1d,#02,#1d,#02,#24,#02
	db #1d,#02,#1c,#02,#1d,#02,#1d,#04
	db #1d,#02,#1d,#02,#29,#02,#1d,#04
	db #1d,#02,#1d,#04,#1d,#02,#1d,#02
	db #28,#02,#1d,#04,#1d,#02,#1d,#04
	db #1d,#02,#1d,#02,#28,#02,#29,#02
	db #1d,#02,#1d,#02,#32,#02,#28,#02
	db #1d,#02,#1d,#02,#30,#02,#32,#02
	db #1d,#04,#1d,#04,#1d,#02,#1d,#02
	db #29,#02,#1d,#04,#1d,#02,#29,#04
	db #1d,#02,#1d,#02,#29,#02,#1d,#04
	db #1d,#02,#1d,#04,#1d,#02,#1d,#02
	db #29,#02,#1d,#04,#1d,#04,#28,#02
	db #1d,#02,#1d,#02,#24,#02,#1d,#02
	db #1c,#02,#1d,#02,#1d,#04,#1d,#02
	db #1d,#02,#28,#02,#29,#02,#1d,#02
	db #1d,#02,#32,#02,#28,#02,#1d,#02
	db #1d,#02,#30,#02,#32,#02,#1c,#04
	db #1d,#04,#1d,#02,#1d,#02,#29,#02
	db #1d,#04,#1d,#04,#28,#02,#1d,#02
	db #1d,#02,#24,#02,#1d,#02,#1c,#02
	db #1d,#02,#1d,#04,#1d,#02,#1d,#02
	db #29,#02,#1d,#04,#1d,#02,#28,#04
	db #1d,#02,#1d,#02,#28,#02,#1d,#04
	db #1d,#02,#1d,#04,#1d,#02,#1d,#02
	db #28,#02,#29,#02,#1d,#02,#1d,#02
	db #32,#02,#28,#02,#1d,#02,#1d,#02
.le169 equ $ + 7
	db #30,#02,#32,#02,#1d,#04,#ff,#64
	db #07,#1d,#20,#65,#18,#1c,#06,#1d
	db #02,#65,#38,#21,#06,#23,#02,#65
	db #20,#65,#18,#21,#06,#23,#02,#65
	db #20,#65,#18,#21,#06,#1d,#22,#65
	db #18,#1c,#06,#1d,#02,#65,#38,#21
	db #06,#23,#02,#65,#20,#65,#18,#21
	db #06,#23,#02,#65,#20,#65,#18,#21
.le1a6 equ $ + 4
	db #06,#23,#02,#ff,#64,#06,#66,#08
	db #60,#08,#66,#01,#60,#08,#66,#08
	db #60,#08,#66,#01,#60,#08,#66,#08
	db #60,#08,#66,#01,#60,#08,#66,#08
	db #60,#04,#60,#04,#66,#01,#60,#08
.le1cb equ $ + 1
	db #ff,#64,#06,#66,#08,#60,#08,#66
	db #01,#60,#08,#66,#08,#60,#08,#66
.le1dd equ $ + 3
	db #01,#60,#08,#64,#06,#66,#02,#60
	db #02,#60,#02,#60,#02,#60,#02,#66
	db #04,#60,#02,#60,#02,#60,#02,#60
	db #02,#66,#08,#60,#02,#60,#02,#60
	db #02,#60,#02,#66,#0c,#60,#02,#60
.le208 equ $ + 6
	db #02,#60,#02,#60,#02,#ff,#64,#06
	db #66,#03,#60,#02,#60,#02,#60,#02
	db #60,#02,#60,#08,#66,#08,#60,#08
	db #66,#03,#60,#04,#60,#02,#60,#02
.le223 equ $ + 1
	db #ff,#64,#06,#66,#08,#60,#08,#66
	db #01,#60,#04,#60,#04,#66,#08,#60
	db #08,#66,#01,#60,#06,#60,#02,#66
	db #08,#60,#06,#60,#02,#66,#01,#60
	db #04,#60,#04,#66,#08,#60,#04,#60
	db #02,#60,#02,#66,#01,#60,#06,#60
	db #02,#66,#08,#60,#08,#66,#01,#60
	db #04,#60,#04,#66,#08,#60,#08,#66
	db #01,#60,#06,#60,#02,#66,#08,#60
	db #06,#60,#02,#66,#01,#60,#08,#66
	db #08,#60,#02,#60,#02,#60,#02,#60
	db #02,#66,#01,#60,#06,#60,#02,#ff
.le282
	db #66,#08,#60,#08,#66,#01,#60,#04
	db #60,#04,#66,#08,#60,#08,#66,#01
	db #60,#06,#60,#02,#66,#08,#60,#06
	db #60,#02,#66,#01,#60,#04,#60,#04
	db #66,#08,#60,#04,#60,#02,#60,#02
	db #66,#01,#60,#02,#60,#02,#60,#02
	db #60,#02,#ff
.le2b5
	dw le2f5,le2fa,le2fe,le306
	dw le30a,le312,le31c,le321
	dw le325,le32a,le32e,le333
	dw le337,le33c,le340,le345
	dw le34f,le354,le35b,le363
	dw le367,le36c,le370,le3a2
	dw le3a9,le3ae,le3b2,le3b7
	dw le3be,le3c6,le3d3,le3d8
.le2fa equ $ + 5
.le2f5
	db #00,#7f,#00,#7f,#80,#01,#00,#01
.le2fe equ $ + 1
	db #ff,#0f,#05,#ff,#03,#0a,#ff,#05
.le30a equ $ + 5
.le306 equ $ + 1
	db #80,#01,#00,#01,#ff,#0f,#04,#ff
.le312 equ $ + 5
	db #06,#0b,#ff,#0e,#80,#02,#ff,#01
.le31c equ $ + 7
	db #04,#01,#01,#02,#ff,#01,#ff,#0c
.le321 equ $ + 4
	db #0c,#ff,#01,#80,#01,#00,#01,#ff
.le32a equ $ + 5
.le325
	db #0e,#0e,#ff,#02,#80,#01,#00,#01
.le333 equ $ + 6
.le32e equ $ + 1
	db #ff,#0e,#0e,#ff,#06,#80,#01,#00
.le33c equ $ + 7
.le337 equ $ + 2
	db #01,#ff,#0e,#07,#fe,#01,#80,#01
.le340 equ $ + 3
	db #00,#01,#ff,#0f,#0f,#ff,#04,#80
.le345
	db #01,#ff,#01,#02,#01,#01,#01,#ff
.le354 equ $ + 7
.le34f equ $ + 2
	db #01,#ff,#0f,#0f,#ff,#02,#80,#01
.le35b equ $ + 6
	db #ff,#01,#01,#ff,#01,#ff,#0f,#03
.le363 equ $ + 6
	db #ff,#01,#06,#fe,#01,#80,#01,#18
.le36c equ $ + 7
.le367 equ $ + 2
	db #01,#ff,#0f,#0f,#ff,#01,#80,#01
.le370 equ $ + 3
	db #30,#01,#ff,#0f,#01,#fe,#01,#01
	db #02,#01,#01,#fe,#01,#01,#02,#01
	db #01,#fe,#01,#01,#02,#01,#01,#fe
	db #01,#01,#02,#01,#01,#fe,#01,#01
	db #01,#01,#01,#fe,#01,#01,#01,#01
	db #01,#fe,#01,#01,#01,#01,#01,#fe
.le3a2 equ $ + 5
	db #01,#0a,#ff,#03,#80,#01,#fe,#01
.le3a9 equ $ + 4
	db #01,#fe,#01,#ff,#0f,#0f,#ff,#02
.le3b2 equ $ + 5
.le3ae equ $ + 1
	db #80,#01,#60,#01,#ff,#0f,#0f,#ff
.le3b7 equ $ + 2
	db #01,#80,#01,#18,#01,#01,#e8,#01
.le3be equ $ + 1
	db #ff,#0f,#01,#00,#05,#0f,#ff,#01
.le3c6 equ $ + 1
	db #80,#01,#30,#01,#01,#d0,#01,#01
.le3d3 equ $ + 6
	db #18,#01,#01,#e8,#01,#ff,#0f,#0f
.le3dc equ $ + 7
.le3d8 equ $ + 3
	db #ff,#02,#80,#01,#fa,#01,#ff,#04
	db #60,#08,#00,#09,#34,#09,#01,#0c
	db #60,#09,#00,#06,#18,#06,#00,#08
	db #60,#08,#02,#02,#24,#0a,#01,#08
	db #24,#06,#02,#08,#60,#06,#00,#08
	db #18,#0c,#80,#08,#60,#01,#01,#06
	db #60,#0b,#02,#00,#10,#0a,#01,#02
	db #60,#06,#00,#00,#48,#0d,#01,#00
	db #48,#06,#01,#00,#4c,#0e,#81,#00
	db #3c,#0e,#02,#00,#24,#0f,#81,#00
	db #34,#0f,#02,#00,#00

;
.play_music	; added by Megachur
;
	call real_play_music
	call real_play_music
	call real_play_music
	call real_play_music
	call real_play_music
	jp real_play_music	; x6 1st theme x3 second theme !!!

;	call ld082
;	di
;	ld hl,(#0039)
;	ld (ld4f0),hl
;	ld hl,ld0dd
;	ld (#0039),hl
;	ei
;	ret
;	di
;	ld hl,(ld4f0)
;	ld (#0039),hl
;	call ld082
;	ei
;	ret

.game_name
	db "Afterburner",0
.game_year
	db "1988",0
.game_publisher
	db "Activision",0
.music_author
	db "Jon Paul Eldridge",0
.music_comment
	db "*** (C) 1988 DIGITAL HARMONICS - JON PAUL S ELDRIDGE ***",0

	read "music_end_v1_0.asm"
